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