Try to write a Perl script to Read a file contain only DNA string, then translate DNA to RNA , than transcribe RNA to protein, please help with correcting the script

/usr/bin/env perl Read the input file only contains a, o, g, t, translate it into RNA, then tran Written by 05/14/2013 use stricti my $DNAfilename $ARGVI0] open (my SDNA, $DNAfilename) : while read $DNA, my schar, 1) if ( (Schar eq .a.) ?l (Schar eq, c') li (Schar eq.g.) 11 (Schar eqtm my $RNA $DNA RNA s/t/u/g my (tcodon_table) my $protein my $codon for ( my si-o, si