#!/usr/bin/perl -w

my $device = $ARGV[0];

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