Select Code to Download

while (1) {
    # get the date
...
        sleep 86400;
    }
}

my $interrupted = 0;
$SIG{INT} = sub { $interrupted = 1; &save_file; die; };
...
        sleep 86400;
    }
}