#!/usr/bin/perl -w
use strict;
use warnings;
#A program that asynchronously call two external script  
# It helps to launch it without waiting for one file to finish:
# On Unix systems, either of these will execute and just carry-on
# You can't collect output that way
# Testing the connection
#$dbh->ping or die "Database has fallen over - $DBI::errstr.";
# Use system if you do not need to capture the output of the command.

#system ('/home/boraton2010/Desktop/programs/fileOpen/NEW/back.pl'); 
# If you just want to execute another script and terminate the current one

Main:{
system ('/home/boraton2010/Desktop/programs/fileOpen/NEW/TEST/MeshActivity.pl'); 
#exec ();
my @results;
foreach my $i (0..10){
	$results[$#results+1] = `time -o time.text -a -v '/home/boraton2010/Desktop/programs/fileOpen/NEW/TEST/testing.pl'`;
	print $results[$#results], "\n";
}
system ('/home/boraton2010/Desktop/programs/fileOpen/NEW/TEST/timer.pl');
exit(0);
}

