Select Code to Download

if ( -T $currentlog )              #checks wether the file is a text f
+ile
   {
      open(CURRENTLOG, $currentlog)|| die "file not found: $!";
   }
   else . . .

$oldlocation = "/perl/ass/$logfiles[$hour]";           #Cut and Pastes
+ the log file into corresponding folder
            $newlocation = "/perl/ass/$folder[$N]/$logfiles[$hour]";
            print " old = $oldlocation \n new = $newlocation\n";
            move($oldlocation, $newlocation) or die "File cannot be mo
+ved: $!";

#!/usr/bin/perl
use Date::EzDate;                                #Requests to use the 
+date mod
...
  }
  
exit;