use Win32::OLE;
use Cwd;
use File::Copy;

$cwd = cwd();
$input = 'input.xls';

$input_file = "$cwd\\Metrics_Data.txt";

copy ("Template1.xls", "$input");

print "Template file is:  $template1\n\n";
print "Input file is:  $input\n\n";

open INPUT_FILE, $input || die "No file\n";

$PptApp = Win32::OLE->new ('Powerpoint.Application');
$PptApp->{Visible} = 1;
$PpptApp = Presentations(Presentation1)->Open("$input"), ReadOnly ->True;