$ pl2pm foo.pl bar.pl

##</code><code>##

#ExampleClass.pm
package ExampleClass;

use lib '.';
use Bar;
use Foo qw/can_i_see_you/;

sub new {
    my $class = shift;
    bless {}, $class;
}

sub does_work {
   can_i_see_you();
}

1;

##</code><code>##

$ perl -w runme.pl
You can see me!