#! /usr/local/bin/perl -w

use strict;

sub functioncall {
        $b = "foo";
        print "$b\n";
}

functioncall();