Select Code to Download

---------
1|cool.gif|aaa|yes|yes
3|biggrin.gif|:D|biggie|yes

5|tongue.gif|:p|tongue|yes
---------

sub set_del_yes {
$storeline = $q->param('id');
...
print FLE $_, $/ for @file;
close FLE or die $!;
}