Perl query

--0015175cdec467045d046b9da355
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit

Hi,

This is my code in perl.

   my $include = "foo.1";
 my $ct = "/usr/atria/bin/cleartool";

open my $pipe, "-|", $ct, "desc", $include or die "could not run cleartool:
$!";

When i execute this , I am getting below error.

   meaningless input.

    Uncaught exception from user code:
        Illegal division by zero.

Is there any other way to represent below code in perl,

open my $pipe, "-|", $ct, "desc", $include or die "could not run cleartool:
$!";

Am i missing anything here. Please advise.

--0015175cdec467045d046b9da355
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

Hi, <br>=A0<br>This is my code in perl.<br>=A0<br>=A0=A0 my $include =3D &q=
uot;foo.1&quot;;<br>=A0my $ct =3D &quot;/usr/atria/bin/cleartool&quot;;<br>=
=A0<br>open my $pipe, &quot;-|&quot;, $ct, &quot;desc&quot;, $include or di=
e &quot;could not run cleartool: $!&quot;;<br>
=A0<br>When i execute this , I am getting below error. <br>=A0<br>=A0=A0 me=
aningless input.<br>=A0<br>=A0=A0=A0 Uncaught exception from user code:<br>=
=A0=A0=A0=A0=A0=A0=A0 Illegal division by zero. <br>=A0<br>Is there any oth=
er way to represent below code in perl, <br>
=A0<br>open my $pipe, &quot;-|&quot;, $ct, &quot;desc&quot;, $include or di=
e &quot;could not run cleartool: $!&quot;;<br>=A0<br>Am i missing anything =
here. Please advise. <br>=A0

--0015175cdec467045d046b9da355--