sub Foo::bar {
	my $filename = sprintf('/tmp/%s.txt', ref $_[0]);
	open my $fh, '>', $filename or die($!);
	print $fh $_[0][0] or die($!);
	close $fh or die($!);
	1 while unlink $filename;
}