#!/usr/bin/perl

use Schedule::Cron;

# Subroutines to be called
   sub dispatcher {
       print "ID:   ",shift,"\n";
       print "Args: ","@_","\n";
     }

sub check_links {

$datetime = scalar(localtime(time));
open(F,'>>datetime.dat') || die $!;
print F "$datetime\n";
close(F);
   }

# Create new object with default dispatcher
my $cron = new Schedule::Cron(\&dispatcher);


$cron->add_entry("0-59/1 * * * Mon-Fri",\&check_links);

# Run scheduler
$cron->run(detach=>1);