system("/sbin/mkfs -t xfs $device");
if (!?) { print "Failed! - $?\n"; }

##</code><code>##

#!/usr/bin/perl -w

my $device = $ARGV[0];

print "I GOT $device !!\n";
system("/sbin/mkfs -t xfs $device");
exit($?);

##</code><code>##

#system("/sbin/mkfs -t xfs $device");
system("./make_fs.pl $device");
if (!?) { print "Failed! - $?\n"; }

##</code><code>##

#system("/sbin/mkfs -t xfs $device");
#system("./make_fs.pl $device");
print `/sbin/mkfs -t xfs $device`;
if (!?) { print "Failed! - $?\n"; }