#!/usr/bin/perl
system( "mpg123  a.mp3");