#! /usr/bin/perl
$program = "/bin/csh ";
$status1 = system("$program source /exlibris/aleph/a16_1/aleph/proc/unset_lib_env");
die "status1 went wrong:$?" unless $status1 ==0;
$status2 = system("$program source `/exlibris/aleph/a16_1/aleph/exe/dev_aleph gpo01`/gpo01/prof_library");
die "status2 went wrong:$?" unless $status2 ==0;
$status3 = system("$program echo $data_root");
die "status3 went wrong:$?" unless $status3 ==0;