$SIG{INT} = 'aborted';

sub aborted {
	print_header;
	print "Aborted\n";
	exit 1;
}