What is the output from the following Perl script? You must explain your answer to get any credit. $(7$points$)$

$sar$=10$

print $var, $"$

$"$;

&fun$1$;

print $var, $"$

$"$;

sub fun$1\{$

local $var $=20$;

print $"\backslash$$var inside fun$1$ before calling fun$2$ is $",$ $var, $"$

$"$;

&fun$2$;

print $"\backslash$$var inside fun$1$ before after fun$2$ is $",$ $var, $"$

$"$;

$\}$

$20$

sub fun$2\{$

local $var$=30$

$var$++$;

print "ISvar inside fun$2$ before calling fun$3$ is $",$ $var, $"$

$"$; &fun$3$;

print $"$$var inside fun$2$ after calling fun$3$ is $",$ $var, $"$

$"$;

$31$

$31$

$\}$

sub fun$3\{$

my $var $=40$

$var$++$;

print "ISvar inside fun$3$ is $",$ $var, $"n"$;

$41$

$41$