#!/usr/bin/perl

print "Hello world！\n";


printf "%g %g %g\n", 5/2, 51/17, 51**17;
printf "%d\n", 2.5;
printf "%6d\n", 2;

print "----------------\n";

use 5.014;
say "1" + 2; #输出3
say "1" . 2; #输出12
say "1" x 3 + 2; #输出113  重复字符次数先运行
say "1" . 3 + 2; #输出15 加法先运行
say "1" x 3 * 2; #输出222 重复字符次数先运行  
say "1" . 3 * 2; #输出16  乘法先运行

my $variable = "test value";
say $variable