Select Code to Download

# $dest was set to "sdb" through a shell argument 
mounted_disks=$(mount | perl -nae 'BEGIN{$d=shift}; push @m, $F[2] if 
+m{/dev/$d}; END{print join(" ", sort {length($b)<=>length($a)} @m)}' 
+$dest)
umount -l $mounted_disks