Select Code to Download

PolettiX:~# dd if=/dev/zero of=testfile bs=1024 count=1024
1024+0 records in
...
PolettiX:~# 
PolettiX:~# 
PolettiX:~# mount testfile -o loop /mnt

#!/usr/bin/perl
use strict;
...
}

print {*STDERR} "should be closed here!\n";

Can't close(GLOB(0x814cd4c)): No space left on device at (eval 2) line
+ 3
        main::__ANON__('GLOB(0x814cd4c)') called at ./prova.pl line 13