Language Basics Perl

#!/usr/bin/perl
use strict;
use warnings;
my $global_variable = "All the World can see Me";
use constant MY_GLOBAL_CONSTANT => "Global Constant";
MAIN: {
    my $main_variable = "Not visible outside main block";
    print_variables ($main_variable);
}
sub print_variables {
    print $global_variable, "\n", MY_GLOBAL_CONSTANT, "\n";
    print $_[0], "\n"; # passed from main block, ok now
}