sub foo{
my %args = ( message => 0, error => 0);
my $msg;
my $var1 = 0

if ($var = 0) {
$msg = "var 0";
return { error =>0, message=$msg }
}
else{
$msg = "not var 0"
return { error =>1, message=$msg }
}


##</code><code>##

sub goo{
my $var = &file::foo();
system (`echo "var is $var" > ~/file`);
}