Select Code to Download

opendir my $d, $dir;

...

# if we have more as 20 files remove the oldes two
unlink @f[0,1] if @f > 20;