You can either change your code -

my($schema_in) = $_;
[download]

to this -

my($schema_in) = @_;
[download]

or this -

my $schema_in = shift;
[download]