perl -e 'open (FD1, "/usr/bin/cdrecord -vs -dummy -eject /mnt/test/Debian/2disc.iso |");
while (<FD1>) { $_ =~ s/^M//g; print $_ if /^Track/; };
close (FD1)