diff --git a/Example.hs b/Example.hs
new file mode 100644
--- /dev/null
+++ b/Example.hs
@@ -0,0 +1,32 @@
+import Network.HTTP                   (simpleHTTP, Request, mkRequest)
+import Network.HTTP.Base              (Response(..), RequestMethod(..))
+import Network.HTTP.Headers           (HeaderName(..), findHeader)
+import Network.Stream                 (ConnError)
+import Network.URI                    (parseURI)
+import Data.ByteString.Lazy.Progress  (trackProgressString)
+import qualified Data.ByteString.Lazy as BS
+import System.IO                      (openBinaryFile, hClose, IOMode(..))
+import System.Environment             (getArgs)
+
+downloadFile :: String -> FilePath -> IO ()
+downloadFile url path = do
+  fhndl <- openBinaryFile path WriteMode
+  http  <- simpleHTTP dbReq
+  case http of
+    Left x     -> fail $ "Couldn't download file: " ++ show x
+    Right resp -> do
+      let size = read `fmap` findHeader HdrContentLength resp
+      putStrLn $ "Total size is " ++ show size ++ " bytes."
+      track <- trackProgressString formatStr size handler
+      track (rspBody resp) >>= BS.hPut fhndl
+      hClose fhndl
+      putStrLn "Done!"
+ where
+  dbReq     = mkRequest GET link
+  Just link = parseURI url
+  formatStr = "\r Downloading file ... %p (%R, estimated done in %T)"
+  handler   = putStr
+
+main :: IO ()
+main = do
+  downloadFile "http://ftp.ndlug.nd.edu/pub/fedora/linux/releases/16/Fedora/x86_64/iso/Fedora-16-x86_64-netinst.iso" "foo.iso"
diff --git a/bytestring-progress.cabal b/bytestring-progress.cabal
--- a/bytestring-progress.cabal
+++ b/bytestring-progress.cabal
@@ -1,5 +1,5 @@
 Name: bytestring-progress
-Version: 1.0.2
+Version: 1.0.2.1
 Build-Type: Simple
 Cabal-Version: >= 1.6
 License: BSD3
@@ -15,6 +15,8 @@
   consumed. Typically, this could be to report some measure of progress
   to a waiting user, but it could also be to perform some form of testing
   on input / consumption code.
+
+data-files: Example.hs
 
 Library
   Build-Depends: base >= 4.0 && < 5.0,