#! /usr/bin/perl

use File::Copy ;

move ("a*","tmp/" ) ;