gistfile1.pl

#!/usr/bin/env perl

use strict;

our $temp = "foobar";

sub foo {
    our $temp = "bar";

    return "bar";
}


print foo()  . $temp . "\n";

exit 0;