Select Code to Download

$SIG{INT} = \&zap;

...
}

sleep 1 while 1;

#!/usr/bin/perl -w
use strict;
...
    }
    #exit;
}