sub saveStudInfo_PerlScr ipt Accept Input my Name shift my Marks shift

sub saveStudInfo_PerlScript {
        # Accept Input
        my $Name = shift;
        my $Marks = shift;
        my $SerialNo = shift;
        
        # Call subroutine which does database update
        update_Student_Info($SerialNo,$Name,$Marks);

        # Return Output
        return (@Return, ($Name ne "") ? $Name : " ",($Marks ne "") ? $Marks : " ");
}