#!/usr/bin/perl

use warnings;
use strict;

if  ( ! $ARGV[0] ){
    print "Usage: $0 patch_file\n";
    exit;
}

my $patch = $ARGV[0];

my $url   = "http://updates.oracle.com/Orion/Download/";

print "\nEnter metalink username: ";
my $username = <STDIN>;

print "\nEnter metalink password: ";
my $password = <STDIN>;

chomp( $username, $password );

my $fetch = "wget " .
            "--http-user=$username " .
            "--http-password=$password " .
            "--no-check-certificate " .
            "--output-document=$patch " .
            "$url";
`$fetch`;