View source for Randomseq code 1

<p>Because of my lack of coding ability, I couldn&#39;t solve the error</p>

<p>#!/usr/bin/perl</p>

<p>use 5.010;<br />
use strict;<br />
use warnings;<br />
use Scalar::Util qw(looks_like_number);<br />
print &quot;Enter the number of sequence you want!\n&quot;;<br />
my $seqnum=&lt;STDIN&gt;;<br />
chomp $seqnum;<br />
my @chars=(&quot;A&quot;,&quot;T&quot;,&quot;G&quot;,&quot;C&quot;);<br />
my @newstring={};<br />
$newstring .= $chars[rand @chars] for 1..$seqnum;<br />
print(@newstring);<br />
&nbsp;</p>