Select Code to Download

use Time::Local qw/timegm_nocheck/;

...
my ($year,$julian_day) = $date_string =~ /^(\d\d\d\d)(\d\d\d)$/;
my $gmt = timegm_nocheck 0,0,0,$julian_day,0,$year;
# ...  do something with the gmt value