1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6my $x = 'hello world';
7
8print "$x\n";
9
10back();
11
12exit;
13
14sub back {
15    print "hello back\n";
16}
17
18