Select Code to Download

sub extract {
   my ($filename, $line_no)=@_;
...
        return $line;
   }
}

An example:
$file = "example.txt";
$line_no_reqd = 4; 
$result = &imp($file,$line_no_reqd);
print $result;