#!/usr/bin/env perl
use warnings;
use strict;

my $result;

$result = foo();
print "result=$result\n";
$result = bar();
print "result=$result\n";

sub foo {print "foo: "}
sub bar {print "bar: "; chdir '/nodir'}