#!/usr/bin/perl

use strict;
use warnings;

print mt2(55), "\n";

my $a = 23;

sub mt2 { 
    my $b = $_[0] * 2;
    return $a + $b;
}

##</code><code>##


#!/usr/bin/perl

use strict;
use warnings;

print mt2(55), "\n";

sub mt2 { 
    my $a = 23;
    my $b = $_[0] * 2;
    return $a + $b;
}