In addition to missing braces in the if-statement, you have a problem with this line:

my($num1,$flag)=shift;
[download]

shift only returns one element from @_. You probably mean:

my($num1,$flag)=@_;
[download]