use warnings;
use strict;

BEGIN {
  (my $filename = $ARGV[0]) =~ s!::!/!g;
  require "$filename.pm";
  $ARGV[0]->import() if $ARGV[0]->can('import');
}

print read_file($0);