Select Code to Download

#!/usr/bin/perl

use strict;
...
# while this is running
print 'Hanging ...';
<STDIN>;

sub timeout {
    my ( $package, $timeout, $code ) = @_;

...
}

timeout( $package, 10, sub {`perl $make_prog 2>&1`} );