sub ftp_order_file {
    my $order_file = shift;
    my $ftp = new Net::FTP("hostname") || die "fail";
    $ftp->login("userid", "password");
    $ftp->cwd("/aa/a00/rel2.4/env/AATS1/GlomOrders");
    $ftp->get($order_file);
    $ftp->close();
}