Select Code to Download

#!/usr/bin/perl -w

...
my $e;

print "$a $b $c $d $e\n";

Use of uninitialized value in concatenation (.) or string at C:\testpe
+rl\undef.pl line 9.
1 2 3 4