my @tmp = split(/\\/,$0);
my $name = $tmp[-1];