Select Code to Download

$sub = sub { exec "perl $0" };
$SIG{INT} = $sub;
...
    print ++$counter, "\n";
    sleep 1;
}

#!/usr/bin/env perl

...
    }
    }