print q(
+ simple perl calculator
+ @sec4ever
);
a:
print "first number: ";
$fnum = <stdin>;
chomp($fnum);
print "operator: ";
$op = <stdin>;
chomp($op);
print "second number: ";
$snum = <stdin>;
chomp($snum);
$op eq "+" ? $result = $fnum+$snum : die "Operator $op is not suported";
$op eq "*" ? $result = $fnum*$snum : die "Operator $op is not suported";
$op eq "-" ? $result = $fnum-$snum : die "Operator $op is not suported";
$op eq "/" ? $result = $fnum/$snum : die "Operator $op is not suported";
$op eq "**" ? $result = $fnum**$snum : die "Operator $op is not suported";
print "result: $result\n";
goto a;

#UzunDz
print "[+] simple perl calculator\n[+] UzunDz\@sec4ever.com\n";

while (true){
print "first number :";
$n1 = <STDIN>;
print "operator :";
$op = <STDIN>;
print "seconde number :";
$n2 = <STDIN>;
print "result: ".eval($n1 .$op .$n2)."\n";
}

head();
$fnum = $ARGV[0];
$op = $ARGV[1];
$snum = $ARGV[2];
$op eq "+" ? $result = $fnum+$snum : "";
$op eq "*" ? $result = $fnum*$snum : "";
$op eq "-" ? $result = $fnum-$snum : "";
$op eq "/" ? $result = $fnum/$snum : "";
$op eq "**" ? $result = $fnum**$snum : "";
print "result: $result\n";
sub head {
print qq{
+ simple perl calculator
+ \@sec4ever
+ usage :
\t perl $0 firstnum operator secnum
\t ex: perl $0 10 * 2
}
}

#UzunDz
print "\n[+] simple perl calculator\n[+] UzunDz\@sec4ever.com\n";
print "[+] usage:\n\tperl $0 firstnum operator secnum\n\tex: perl $0 10 * 2";

$n1 = $ARGV[0];
$op = $ARGV[1];
$n2 = $ARGV[2];

print "\nresult: ".eval($n1 .$op .$n2)."\n";

# perl cat
if(scalar(@ARGV) == 0)
{
print "+ usage: perl $0 file2.txt file2.txt ...";
}else{
for($i=0;$i<scalar(@ARGV);$i++)
{
print "+ reading ".$ARGV[$i]."\n";
open(cat,"<".$ARGV[$i]) or die $!;
while (<cat>) {
$line = $_;
chomp $line;
print $line."\n";
}
close cat;
}
}

if(scalar(@ARGV) == 0)
{

print "\n[+] simple file reader\n[+] UzunDz\@sec4ever.com\n"; #header
if(scalar(@ARGV) == 0){ # argv check
    print "[+] usage:\n\tex: perl $0 file1.txt file2.txt ...";
}else{
for($i=0;$i<scalar(@ARGV);$i++)
    {
    # reading
        print "\n[+] reading : $ARGV[$i]\n";
        open (file, "<".$ARGV[$i]);
        while($line = <file>)
        {
        print "\t".$line;
        }
        close file;
        print "\n";
    }
}