Declare $INPUT with our like this:

use strict;
use warnings;
use CGI;

our $INPUT = new CGI;
[download]

or use vars qw($INPUT); if you want it to be used in Perl < 5.6.0 (i believe).