my $include  = shift @ARGV;

do $include;
...