print "I want to copy $source to $dest after logging-in as ABU";
open my $fh, "|-", "sudo su - ABU" or die "can't run sudo: $?";
print $fh <<_EOF_;
echo 'Logged-in as ABU'
ls
_EOF_
close $fh;