[Drunken Perl Coder]

Any perl code run as a CGI will return a 500 internal server error if you don't print an http header. I assume you are just testing to see if MIME::Lite works, if so, just print a header and a short message at the end of the script.

#!/usr/bin/perl -w
use MIME::Lite;
    ### Create a new single-part message, to send a GIF file:
    $msg = MIME::Lite->new(
        From     =>'sujata@k****ij.com',
        To       =>'sujata_atkcs@yahoo.com',
        Cc       =>'sujata_ghosh@hotmail.com',
        Subject  =>'Helloooooo, nurse!',
        Type     =>'image/gif',
        Encoding =>'base64',
        Path     =>'/home/k****ijc/www/com/casestudy1.gif'
    );
    $msg->send; # send via default 
 
print "Content-type: text/html\n\n";
print "Message sent";