Select Code to Download

sub foo{
my %args = ( message => 0, error => 0);
...
return { error =>1, message=$msg }
}

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