#!/usr/bin/perl5.8.1-autobox -w

    use autobox SCALAR => 'Print';

    package Print;

    sub print {print $_[0], "\n"};

    1;

    "Just Another Perl Hacker"->print();

    __END__