Download from
dtmf.zip and extract it and run the snippet. (the script has to be in the same folder as the extracted files.)
have fun
PS: just put your receiver on your speaker and call
dtmf.pl 0123456789 (or any number that makes more sence to you! :] )
#!/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";
