#!perl sub command { NEXT } $SIG{INT} = 'IGNORE';