button .b -text Hello! -font {Times 16} -command {puts Alô Mundo!);

for ($n = 1; $n <= 10; ++$n) { printf ("%d squared is %d\n", $n $n*$n); }; b.pack ( )

def action(app):

l = Tkinter.Label ( top, text = "Hello there")

l.pack()

app = Tkinter.Tk( )

but = MyButton( app)

app.mainloop; } b. pack ( )

b = Button (app, text = 'Hello!', font = (name ='Times', size = 16),

command = print ('Alô Mundo!'))

b.pack( )

$depth_limit = 20;

@directory_list = @ARGV;

# "-s" abbreviates "the size of", and "-f" "... is a file".

find (sub {$size{$File::Find::name} = -s if -f;},

@directory_list);

@sorted = sort {$size{$b} <=> $size{$a}} keys %size;