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