#!/usr/bin/perl

package Runnable;

use Exporter qw/import/;

@EXPORT_OK = qw/do_something/;

sub do_something
{
    return "did something with @_";
}

if ( $0 =~ /Runnable.pm/ ) {
    print do_something( @ARGV ),"\n\n";
}
1;

##</code><code>##

#!/usr/bin/perl

use strict;
use Runnable qw/do_something/;

print "I'm hoping that this test program ".do_something( @ARGV )."\n";