Select Code to Download

#! perl
use strict;
...
print $@ if $@;

print 'The phaser is named ', $phaser->{name}, "\n";

16:59 >perl 552_SoPW.pl
My enemy is a Dalek with a phaser named Exterminator
...
Can't call method "exterminate" on an undefined value at (eval 1) line
+ 1.
The phaser is named Obliterator
16:59 >