sub all_ones { 0xff x $_[0]; } nuke_file( $filename, \&all_ones );