Select Code to Download

    if ($min >= $oldmin+5 || $oldmin-$min >= 54){

    if ($mon != $oldmon){
     ...

my @pagesource = split( /<\/tr>/, $pagesource );
my $found = 0;
...
    }
}
print "No EUR/USD data found.\n" unless ( $found );