#!/usr/bin/perl -w
use strict;
sub mycode {
  my $var = $_[0];
  my $foo = "blah" if $var; 
  print "foo is $foo\n" if $foo;
  $bar ||= "BAR";
}
mycode("test");
mycode();
mycode();
mycode();