Dreamclown

#!/usr/bin/perl

$age = 26;
@date = (8, 24, 70);

system("cls");
my $a = "Dreamclown";
print $a;
print "\nhello, world\n"; #newline
print "hello, world\t";     #tap
print "\nhello, world\b";    #backspace
print "\nhello, world\a";     #alert
print "\nhello, world\e";      #ESC charecter
print "\nhello, world\033";
print "\nhello, world\x7f";     #DEL charecter
print "\nhello, world\cC";      #CTRL-C
print "\nhello, world\\";
print "\nhello, world\"";     #double quote
print "\nhello, worl\ud";   #upper
print "\nhello, worl\lD";    #lowwer
print "\n\Uhello, world";   #all upper
print "\n\LHELLO, WORLD";    #all lowwer
print "\n\Qhello, world";
print "\n\Uhello\E, world\n";     #End \U\L\Q
print $age."\n";
print $date[2] . "\n";

%fruit = (
          apples => 3,
          oranges => 6
);

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
print $hour . ":" . $min . ":" . $sec . "\n";

$now = localtime();
print $now . "\n";

if ($a = "Dreamclown"){
  print "OK";
}
else{
  print "Not OK";
}

unless ($a = "Dreamclown"){
  print "\nA";
}
else{
  print "\nB";
}

if ($a != "Dreamclown"){ print "\nThat's right..!";}
elsif ($a = "Dreamclown"){ print "\nGood\n"; }

$i = 1;
while ($i < 10){
  print $i . "\n";
}
continue{
  $i++;
}

for($i = 1;$i < 11;$i++){
  print $i . "\n";
}