here is my code
#!/usr/bin/perl -w use strict; my $var=10; my $new_var=testsub($var); print "$new_var\n"; sub testsub { my $in_arg=shift; my $new_arg=$in_arg+10; return($new_arg); }
Edit: g0n - corrected code tags
In reply to Re: My first module
by perladdict
in thread My first module
by tamaguchi
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |