Select Code to Download

#!/usr/bin/perl --
use strict;
...
sub UpdateFile {
    ...
}

sub TestFileUpdatedToday {
    require Test::More;
    Test::More->import( tests => 4 );
...
    }
    ok( FileUpdatedToday( $updated ), "FileUpdatedToday( $updated ) sh
+ould be true");
}