1*898184e3Ssthen#!/usr/bin/perl 2*898184e3Ssthen 3*898184e3Ssthenuse strict; 4*898184e3Ssthenuse warnings; 5*898184e3Ssthen 6*898184e3Ssthenmy $x = 'hello world'; 7*898184e3Ssthen 8*898184e3Ssthenprint "$x\n"; 9*898184e3Ssthen 10*898184e3Ssthenback(); 11*898184e3Ssthen 12*898184e3Ssthenexit; 13*898184e3Ssthen 14*898184e3Ssthensub back { 15*898184e3Ssthen print "hello back\n"; 16*898184e3Ssthen} 17*898184e3Ssthen 18