#!/usr/bin/perl -w

foreach my $dev (@ARGV) {

  if (!-e $dev) {
    warn "$dev does not exist. Skipping\n";
    next;
  }
  if (!-b $dev) {
    warn "$dev does not seem top be a partition. Skipping\n";
    next;
  }

  system "parted $dev mklabel gpt";
  system "parted -- $dev mkpart primary 0 -0";
}