Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

17 lines (15 sloc) 0.256 kb
#!/usr/bin/env perl
use strict; use warnings;
our $a = 1;
sub bar($) {
our $h = shift;
return $h;
sub foo($) {
our $a = shift;
our @b = (1, "b");
our %h = (1 =>'foo', 'food' => 'fight');
bar \%h;
our $c = scalar @b;
foo 5;
Jump to Line
Something went wrong with that request. Please try again.