use FindBin ();

chdir "$FindBin::Bin/2004";