sub blingbling{
        local($sig) = @_;
        print "\n\nBling Bling\n\n";
}

$SIG{'INT'} = 'handler'; #Catch ^C