Select Code to Download

#!/usr/bin/perl -W
use warnings 'all';
...
Tk::MainLoop();

printf "%s\n", $$_||0 foreach @list;