#!/usr/bin/perl

my $trek_year;
my $sd;

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = 
    gmtime(time);

$trek_year = ($year - 70) * 1000;

$sd = ((($yday)*1000/365.25 + $trek_year));

printf "%.1f\n", $sd;