Or, given the file name is in @ARGV anyway:

$^I = '.bak';

/^#/ or print while <>;
[download]

to in place edit and generate a backup file.