Select Code to Download

#!/usr/local/bin perl -w
use strict;
...

return 1;

#!/usr/local/bin/perl -w
use strict;
use Yar;
my $yarobj = new Yar(name=>"YaR",age=>"23",foo=>"bar");
print "Output: ",$yarobj->name,$yarobj->age,"\n";