1#!perl 2use strict; 3use warnings; 4use Carp::REPL qw/warn noprofile/; 5 6my $a = 4; 7my $b; 8 9print $a + $b; 10 11