use Win32::LongPath 'getcwdL';
use File::Spec::Functions 'catfile';

use Win32::OLE;
Win32::OLE-> Option( CP => Win32::OLE::CP_UTF8 );
# ...

$pathfile3 = catfile( getcwdL, 'Template', "$input.xlsx");
$Book2-> SaveAs( $pathfile3 );

##</code><code>##

use FindBin;
use File::Spec::Functions 'catfile';

use Win32::OLE;
Win32::OLE-> Option( CP => Win32::OLE::CP_UTF8 );
# ...

$pathfile3 = catfile( $FindBin::Bin, 'Template', "$input.xlsx");
$Book2-> SaveAs( $pathfile3 );