#!/usr/bin/perl -w our $string = "I love PHP"; print "$string\n"; myfunction(); print "$string\n"; sub myfunction { our $string = "I love Perl"; print "$string\n"; }
#!/usr/bin/perl -w our $string = "I love PHP"; print "$string\n"; myfunction(); print "$string\n"; sub myfunction { our $string = "I love Perl"; print "$string\n"; }