perl2.pl

#!/usr/bin/perl

use warnings;
use strict;

use feature qw( say );

say 'd';
say 'hi';


my $i = 32;
say $i;

say 'mi';