#!/usr/bin/perl

use strict;
use warnings;

use Win32::Sound;

$|++;


my $number = $ARGV[0];
unless(defined $number)
{
	printf("Call $0 <number to dial>\n");
	exit 255;
}

print "Dialing: ";
foreach my $ton (split //, $number)
{
	next unless $ton >= 0 or $ton <= 9;
	print $ton;
	Win32::Sound::Play("$ton.wav", SND_NODEFAULT);
}

print "\n";