#!/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

bar	foo2	bar2	foo3	bar3	foo4