package AUV::123;
use strict;

our @ISA = 'Exporter';
our @EXPORT = 'AUVProcess';

sub AUVProcess{
    my $file = shift;
    open DATA, '<', $file or warn "Couldn't open $file : $!\n";

    ## Process data from file here
    print while <DATA>;

    close DATA;
    unlink $file;
    return;
}

print "AUV::123 loaded";