123456789101112 #!/usr/bin/perluse strict;use warnings;my $class;BEGIN { $class = $ENV{MODULE_START_CLASS} || 'Module::Start'; eval "use $class"; die $@ if $@;}$class->new->run(@ARGV);
#!/usr/bin/perl
use
strict;
warnings;
my
$class
;
BEGIN {
=
$ENV
{MODULE_START_CLASS} ||
'Module::Start'
eval
"use $class"
die
$@
if
$@;
}
->new->run(
@ARGV
);