I have been recently given a PERL script to develop, but the main problem is that the perl version that I have to use is old, also I cant download modules from CPAN.

Perl version 5.0005

I didnt realise this untill I had the script ready to be tested, so there are a few modules that I have used which are not in the perl version.

So I was wondering if anyone could help with this section of code below.
As in does anyone know how to format it so it will work with th eold version of perl or even know what module to use form the old perl version, which will do the same job I am looking to do.

Any help would be much appriciated.



use Time::HiRes qw( usleep gettimeofday tv_interval );


my $Success = 0;
my $elapsed;
my $start;
#if a failure has occurred

if($Success == 1)
{
# Set Time Interval
my $oneMinute = 60_000_000; # 1 minute
my $numberMinutes = 30; # 30 minutes - CONNECTION TIME - Can be changed
my $loopTime = $oneMinute * $numberMinutes;

#Get start time
$start = [gettimeofday];
while ($elapsed < $loopTime && $Success == 1)
{
connect("","");
$elapsed = tv_interval ($start, [gettimeofday]); #Calc elapsed time
}
}