use UNC::MP3::FootpadConvert qw{ convertfromfootpad };

my $cfilename = convertfromfootpad( $file );