[ create a new paste ] login | about

Link: http://codepad.org/Dlu2P4kd    [ raw code | output | fork ]

Perl, pasted on Sep 28:
1
2
3
4
5
6
7
8
9
10
11
12
13
#!perl
use strict;

assign_name();
print_name();

sub assign_name{
   our $name = "alice";
}

sub print_name{
   print $main::name."\n";
}


Output:
1
alice


Create a new paste based on this one


Comments: