#!/usr/local/bin/perl -w

use strict;

#Create global vars for paths, etc.
my $temp_dir_path = "/tmp/usage";
my $temp_iso_file = "/tmp/usage_report.iso";
my $archive_name = "archive.tar";

my $mkisofs_cmd = "/usr/bin/mkisofs";
my @mkisofs_flags = ("-o $temp_iso_file","-J","-R","-v", "-V 'Usage Reports'", $temp_dir_path . "/" . $archive_name);

if ((system $mkisofs_cmd, @mkisofs_flags) == 0) {
    die "Unable to make ISO image!!\n\n";
}

##</code><code>##

[root@gemOS-v007]# perl -w test.pl
mkisofs 1.14 (i686-pc-linux-gnu)
/usr/bin/mkisofs: No such file or directory. Unable to open disc image file

##</code><code>##

/usr/bin/mkisofs -o /tmp/usage_report.iso -J -R -v -V 'Usage Reports' /tmp/usage/archive.tar