use strict;
use Shell::Source

my $csh = Shell::Source->new(shell => "csh", file => "$ENV{Home}/.cshrc");
$csh->inherit;