use Cwd qw(abs_path);
my $path = abs_path($0);
print "$path\n";

# if (m!Duration: ([0-9][0-9]:[0-9][0-9]:[0-9][0-9].[0-9][0-9])!) {
#             $finfo{'duration'} = $1;

use strict;
use warnings;

use IPC::Open3;

# example
my $filename  = $ARGV[0];
my %videoInfo = videoInfo($filename);
for (qw(duration durationsecs bitrate vcodec vformat acodec asamplerate achannels)) {
	print "$_: " . $videoInfo{$_} . "\n";
}

#

#!/usr/bin/perl
my $name;
my @charset = (('A'..'Z'),

<?xml version="1.0" encoding="utf-8"?>
<!-- Introductory Flex 3 example, DKS, TECFA, University of Geneva, nov 2010) -->
 <mx:Application 
     xmlns:mx="http://www.adobe.com/2006/mxml"

#!/usr/bin/perl 

$file1 = 'log.txt'; 

$file2 = 'log1.txt';

$odd_file1 = 'output_odd1.txt';

$even_file1 = 'output_even1.txt';

$odd_file2 = 'output_odd2.txt';

$even_file2 = 'output_even2.txt';

$output_file=

 #!/usr/bin/perl
$file1 = 'log.txt';
$file2 = 'log1.txt';
open(FILE1,"<$file1") || die ("Could not

SYSTEM("vlc");

#!usr/bin/perl

#exec (vlc);