#!usr/bin/perl
use strict;
no strict "vars";
use warnings;

use DBI;
$dbh = DBI->connect('dbi:mysql:audio', 'root', 'ajitteli')
	or die "connection error: $DBI::errstr\n";

print "Enter the number of songs to be played:  ";
my $num

#!usr/bin/perl
use strict;
no strict "vars";
use warnings;

use DBI;
$dbh = DBI->connect('dbi:mysql:audio',

#!usr/bin/perl

use strict;
use warnings;
my $perl = "G:\Perl\bin\perl.exe";
use IPC::Open3;

my @list = glob('*.mp3 *.MP3 *.mp4 *.mpg');
foreach my $song (@list){
print "$song \n";
my $filename = $song;

my %videoInfo = videoInfo($filename);