[johnsca@CORY tmp]$ cat tst
#!/usr/bin/perl

use warnings;
use strict;

sub foo { return 3 }

*blah = \&foo;
[johnsca@CORY tmp]$ perl -c tst
Name "main::blah" used only once: possible typo at tst line 8.
tst syntax OK
[johnsca@CORY tmp]$ ./tst
Name "main::blah" used only once: possible typo at ./tst line 8.
[johnsca@CORY tmp]$ perl -v

This is perl, v5.6.1 built for cygwin-multi

Copyright 1987-2001, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'.  If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.

[johnsca@CORY tmp]$ /win2k/Perl/bin/perl tst
Name "main::blah" used only once: possible typo at tst line 8.
[johnsca@CORY tmp]$ /win2k/Perl/bin/perl -v 

This is perl, v5.6.1 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)

Copyright 1987-2001, Larry Wall

Binary build 633 provided by ActiveState Corp. http://www.ActiveState.com
Built 21:33:05 Jun 17 2002


Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'.  If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.