#!/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";
}