Select Code to Download

my $device = "/dev/cdrom";
my $dir = "/mnt/cdrom";
...
                print "There was an error in mounting $device at $dir.
+\n"
        }
} else { print "mounted\n" }