#!/usr/local/bin/perl -l

use Foo qw(:transforms);

print transform_one("xyzabc");

__END__
$ ./831686.pl
transform_one(): xyzabc