$SIG{$key} = sub { print "Simple Method\n"; };