my $phone_number = '555-1111';
my $message      = '911';

# assuming TTY like above
print TTY 'atdt',$phone_number,'@1,',$message,"@;\rath\r";