#!/usr/bin/perl -w
use strict;

system "sudo mount $ARGV[0] /tmp/mnt -o loop=/dev/loop0"
    and die "mount: ", $? >> 8, "\n";
print "Mounted successfully.\n";
system "sudo umount /tmp/mnt -l" and die "umount: ", $? >> 8, "\n";
print "Unmounted successfully.\n";