$working_dir = $0;
$working_dir =~ s#(.*)/.*$#$1#;
chdir $working_dir;