Scripting >> Perl >> How to declare and use functions

$x = 7; $result = PowerOf2($x); sub PowerOf2 { my $var = shift; $r = $var * $var; return $r; }