package aniftypackage;

use overload ("." => "join_files");

# assume a working new sub is here;

sub join
{
	@meep = ("meep1", "meep2");
	return @meep;
}

package main;

$foo1 = new aniftypackage;
$foo2 = new aniftypackage;
$foo1 = $foo1.$foo2;