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

open (my $test,'>','test.txt') or die $!;
&olpoi_line ('foo','bar','foo2','bar2','foo3','bar3','foo4');
sub olpoi_line {
	my $file = shift ;
	my $point = shift ;
	my $title = shift ;
	my $dicription = shift ;
	my $icon = shift ;
	my $size = shift ;
	my $offset = shift ;
	
	#return  if(!defined($point)); 
	$title=''  if(!defined($title)); 
	$dicription=''  if(!defined($dicription)); 
	$icon=''  if(!defined($icon)); 
	$size='20,20'  if(!defined($size)); 
	$offset='10,10'  if(!defined($offset ));

	print $test $point."\t".$title."\t".$dicription."\t".$icon."\t".$size."\t".$offset."\n";
}# olpoi_line