#setup a shell thru IPC to carry out different                        
# mixer control commands
my $pidcon = open3(\*CON,0,0,'/bin/sh');
# ...... ..... snip ......
#set Line as input
print CON "amixer sset Line Capture cap\n";