sub status () {
    print "\n I'm $Percent done.";
    $SIG{HUP} = \&status;
}