Select Code to Download

...
my $inow_fas = "/inow/index-data/sfs-fas/fas.txt";
die "Error: $inow_fas does not exist" unless ( -e $inow_fas );
print STDERR "$inow_fas: modified ", int( -M _ ), " day(s) ago\n";
...

#!/usr/bin/perl  -w

...
  # running under cron
  return `/bin/ps -aef | /bin/grep $program | /bin/grep -v grep`;
}