my $filename = @_;
[download]

to:

    my $filename = $_[0];
[download]

Your code always assigns $filename=1, instead of the actual file name. Prove this to yourself by printing $filename inside your sub right after the assignment.

See also: Basic debugging checklist