#!/usr/bin/perl -w
use strict;
use feature qw(say);
use POSIX qw(strftime);
my $ctime= strftime "%H-%M", localtime;
my $dlfile= "../PATH_TO/SOME_FILE";
my $dlname= "SOMENAME";
my $newname= "./ANOTHER_PATH/$ctime-$dlname";
my $maxtime= 30;
my $args = ('-s');
print "content-type:text/html; charset=utf-8\n\n";
say qq~
Download $dlname
Download $dlname
~;
system("/bin/ln $args $dlfile $newname");
while ($maxtime > 0) {
$maxtime--;
sleep(1);
say qq~download~;
if ($maxtime == 0) {
unlink $newname;
say qq~Sorry! $newname no longer exists!
~;
}
}
say qq~
~;
exit