Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print "Mounted successfully.\n";
system "sudo umount /tmp/mnt -l" and die "umount: ", $? >> 8, "\n";
print "Unmounted successfully.\n";

ben@Jotunheim:/tmp$ ./mt ubuntu_9_10.iso 
Mounted successfully.
...
ben@Jotunheim:/tmp$ ./mt fake_filename
fake_filename: No such file or directory
mount: 32