#!/usr/bin/perl -w

use strict;

my $status1 = qx|source /ICT/synplicity/synplify/8.6.2/.cshrc_synplify_8.6.2|; # Define the program you are calling
my $status2 = qx|synplify_pro|;

print "Status 1 is $status1, status2 is $status2\n";