use IO::Handle;

    $io = new IO::Handle;
	open FILE, "</dev/dsp";
    if ($io->fdopen(fileno(FILE),"r")) {
        print $io->getline;
        $io->close;
    } else {
		print "Error\n";
	}
close FILE;