Select Code to Download

#!/usr/bin/perl
use strict;
...
my $variable = "foo\r";
print "variable ending with carrige return is =$variable=\n";
print "$hash{$variable}\n";

=ariable ending with carrige return is =foo
Use of uninitialized value in concatenation (.) or string at try1.pl l
+ine 8.