Select Code to Download

#!/usr/bin/perl -w

...
    my $now   = time;
   cmp_ok( abs($mtime - $now), '<=', 1, 'cp updated mtime' );
}

not ok 1 - cp updated mtime
#   Failed test 'cp updated mtime'
...
#         <=
#     '1'
# Looks like you failed 1 test of 1.