use strict; use warnings; package Demo; sub run { print "Hello world\n"; } run (@ARGV) if ! caller (); 1;