revjim.net Rotating Header Image

perl blows, and so does your mom

Anyone know why this doesn't do what I think t should do:


#!/usr/bin/perl

print POOP::printversion();
print "\n";

package POOP;
use vars qw($VERSION);

$VERSION = "0.1.1″;

sub printversion {
return "VER:" . $POOP::VERSION;
}

1;

Share and Enjoy:
  • Facebook
  • StumbleUpon
  • Digg
  • del.icio.us
  • Google
  • Reddit
  • Technorati
  • Furl
  • Spurl
  • Live
  • Pownce
  • TwitThis