#!/usr/bin/perl -w
use strict;

push( @INC, $lib_directory );
require 'lib_utils.pl';

dl_file('/tmp/final.pdf');

##</code><code>##

sub dl_file {
	my ($file) = @_;
	
	if ( ! -e $file) {
		print "file does not exist";
		return 0;
	}

	my $content = read_file( $file, binmode => ':utf8' ) ;
	
	$file =~ m#(.*)([^/]*)$#;
	my $directory	= $1;
	my $filename	= $2;
`echo $directory$filename >> /tmp/flag2`; 

	chdir $directory;	
	
	my $form = new CGI;
	print $form->header(
		-type		=> 'application/octet-stream',
		-attachment	=> $filename,
		-filename	=> $filename,
		-Content-Disposition	=> "attachment; filename=$filename",
	);

	$form->print($content);
	
	return 1;
}