set ProgramsDir=d:\Programs
set PerlDir=%ProgramsDir%\Perl
set TBDir=%PerlDir%\Quantum\Band\TightBinding

perl %TBDir%\TB.pl %1.in | %ProgramsDir%\bin\ktee %1.out