#!/usr/bin/perl
use strict;
use warnings;

&sf(35);

sub sf() {
	print "Szám: @_\n";
}