#!/usr/bin/perl -w
use Cwd;
my $dir = getcwd;


system( "csh", "source /home/<userdir>/bin/set_normal");