#!/usr/bin/perl

sub foo {
}

sub bar {
}

foo(bar(@ARGV));

##</code><code>##

package Mischief::Scripts::foobar;
use strict;
use base 'Exporter';
our @EXPORT = qw/run_script/;

sub foo {
}

sub bar {
}

sub run_script {
    foo(bar(@ARGV));
}

1;

##</code><code>##

#!/usr/bin/perl
use strict;
use Mayhem::Script::foobar qw/run_script/;

run_script();