Select Code to Download

    use strict;
    my $pid = open my $pipe, "-|";
...
    local $/;
    my $output = <$pipe>;
    close $pipe;

    if( been_a_while() ) {
        system( $^X, $0, "--restart=$context", @ARGV );
    }