#!/usr/bin/perl

if ($ARGV[0] =~ m/-\w*h/)
{
  printf("Usage: getvolume\n");
  exit(64);
}

system("/usr/bin/osascript -e 'output volume of (get volume settings)'");
exit(0);
