#!/usr/local/bin/perl
$zmienna=9;
$a ='tekst';
$b='tesk2';
$c=$a.$b;
$g=4;
$ff=$g x $a;
@tablica={"cos", "cos1"};
$napis=$tablica[0];
IyEvdXNyL2xvY2FsL2Jpbi9wZXJsCnByaW50ICdIZWxsbyB3b3JsZCc7CiR6bWllbm5hPTk7CnByaW50ICR6bWllbm5hOwokYSA9J3Rla3N0JzsKJGI9J3Rlc2syJzsKJGM9JGEuJGI7CnByaW50J1xuJzsKCnByaW50ICRjOwokZz00OwokZmY9JGcgeCAkYTsKcHJpbnQgJGZmOwpwcmludCAiJGEgaSAkYiI7CnByaW50ICJcbiI7CkB0YWJsaWNhPXsiY29zIiwgImNvczEifTsKJG5hcGlzPSR0YWJsaWNhWzBdOwoKCnByaW50ICQjdGFibGljYTsKCnByaW50IEB0YWJsaWNhOw==