#!/usr/bin/perl -w
use strict;
use File::Copy;

while (<>) {
    if (/^hostname/) {
        chomp;
        # substr($_,9) extracts everything after 'hostname '
        copy ($ARGV, substr($_, 9));
        close(ARGV);
    }
}